home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / pgm_ctrl / cuactrls / cterm.frm < prev    next >
Text File  |  1995-05-22  |  3KB  |  126 lines
  1. VERSION 2.00
  2. Begin Form frmTermo 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "Thermometer Demo"
  6.    ClientHeight    =   3690
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   3825
  10.    Height          =   4095
  11.    Left            =   1035
  12.    LinkTopic       =   "Form1"
  13.    ScaleHeight     =   3690
  14.    ScaleWidth      =   3825
  15.    Top             =   1140
  16.    Width           =   3945
  17.    Begin Data Data1 
  18.       Caption         =   "Data1"
  19.       Connect         =   ""
  20.       DatabaseName    =   "C:\BP\CUACTLS\CUACTLS.MDB"
  21.       Exclusive       =   0   'False
  22.       Height          =   270
  23.       Left            =   2475
  24.       Options         =   0
  25.       ReadOnly        =   0   'False
  26.       RecordSource    =   "Test"
  27.       Top             =   3255
  28.       Width           =   1155
  29.    End
  30.    Begin CUASpin spn1 
  31.       DataField       =   "TAL"
  32.       DataSource      =   "Data1"
  33.       Height          =   285
  34.       Left            =   1140
  35.       TabIndex        =   3
  36.       Top             =   3240
  37.       Value           =   20
  38.       Width           =   195
  39.    End
  40.    Begin CUACommand cmdTry 
  41.       Caption         =   "Show me!"
  42.       Height          =   345
  43.       Left            =   2460
  44.       TabIndex        =   2
  45.       Top             =   570
  46.       Width           =   1260
  47.    End
  48.    Begin CUACommand cmdOK 
  49.       Caption         =   "OK"
  50.       Default         =   -1  'True
  51.       Height          =   345
  52.       Left            =   2460
  53.       StandardButton  =   1  'OK
  54.       TabIndex        =   1
  55.       Top             =   120
  56.       Width           =   1260
  57.    End
  58.    Begin CUATermo ter1 
  59.       BackColor       =   &H00C0C0C0&
  60.       DataField       =   "TAL"
  61.       DataSource      =   "Data1"
  62.       FontBold        =   0   'False
  63.       FontItalic      =   0   'False
  64.       FontName        =   "MS Sans Serif"
  65.       FontSize        =   8.25
  66.       FontStrikethru  =   0   'False
  67.       FontUnderline   =   0   'False
  68.       Height          =   3480
  69.       Left            =   255
  70.       TabIndex        =   0
  71.       Top             =   90
  72.       Value           =   20
  73.       WarnHi          =   100
  74.       WarnLo          =   80
  75.       Width           =   825
  76.    End
  77.    Begin CUALabel lbl 
  78.       Caption         =   "The thermometer can have a scale. The small heels to the right show high/low values during the measurement. The red marking to the left represents a warning area."
  79.       FontBold        =   0   'False
  80.       FontItalic      =   0   'False
  81.       FontName        =   "MS Sans Serif"
  82.       FontSize        =   8.25
  83.       FontStrikethru  =   0   'False
  84.       FontUnderline   =   0   'False
  85.       ForeColor       =   &H00000080&
  86.       Height          =   1260
  87.       Index           =   6
  88.       Left            =   1275
  89.       TabIndex        =   4
  90.       Top             =   1020
  91.       Width           =   2415
  92.    End
  93. End
  94. Option Explicit
  95.  
  96. Sub cmdOK_Click ()
  97.    Unload Me
  98. End Sub
  99.  
  100. Sub cmdTry_Click ()
  101.    Dim I%
  102.  
  103.    If ter1 = 75 Then
  104.       For I = 75 To 25 Step -1
  105.          ter1 = I
  106.       Next
  107.    Else
  108.       For I = 25 To 75
  109.          ter1 = I
  110.       Next
  111.    End If
  112. End Sub
  113.  
  114. Sub Data1_Error (DataErr As Integer, Response As Integer)
  115.    Response = 0
  116. End Sub
  117.  
  118. Sub Form_Load ()
  119.    Data1.DatabaseName = DatabaseName
  120. End Sub
  121.  
  122. Sub spn1_Change ()
  123.    ter1 = spn1
  124. End Sub
  125.  
  126.